home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / der kl. hobbit (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  25KB  |  703 lines
  1. 0 rem *********************************
  2. 1 rem *t h e  h o b b i t  mbm 19.8.84*
  3. 2 rem *********************************
  4. 5 gosub62500
  5. 11 i1=40960:i2=49151:restore
  6. 12 fori=i1toi2:pokei,peek(i):next:a=10*4096+8*256+10*16:fori=atoa+2
  7. 13 readx:pokei,x:next:a=704:fori=atoa+5:readx:pokei,x:next
  8. 14 data 32,192,2
  9. 15 data 32,138,173,76,247,183
  10. 16 a=2*256+12*16+6:fori=atoa+20:readx:pokei,x:next
  11. 17 data 208,3,76,29,168,32,192,2,32,19,166
  12. 18 data 56,165,95,233,1,164,96,76,36,168
  13. 19 poke40996,197:poke40997,2:poke1,54
  14. 23 print"[147]";:poke53280,0:poke53281,0
  15. 24 data4900,5000,5100,5300,5400,5700,5900,5800,5500,5600,5300
  16. 25 restore 24:dimok(11):fori=1to11:readii:ok(i)=ii:nexti:ok=1
  17. 26 data7300,7400,7200,7100
  18. 27 restore26:fori=1to4:readii:bu(i)=ii:next:bu=1
  19. 28 sm(1)=8600:sm(2)=8400:sm(3)=8200:sm(4)=8500:ms=0:sm=1:diml$(38)
  20. 29 datadie karte,2,den schluessel,10,das schwert,3400,das seil,3400
  21. 30 dataden ring,5900,den goldschluessel,4700,das essen,0,den bogen,6
  22. 31 datadas fass,7300,den goldschatz,8600
  23. 32 datader warg,6100,thorin,3000,gandalf,3000,elrond,3600,eine waldelbe,7000
  24. 33 databard,7700,gollum,6000,der butler,7300,der ork,0,der troll,3200
  25. 39 restore29:fori=1to10:readi$:readii:ge$(i)=i$:ge(i)=ii:next
  26. 40 fori=1to10:readi$:readii:pe$(i)=i$:pe(i)=ii:next
  27. 80 rem   ge(1)=1:ge(2)=1:ge(3)=1:ge(4)=1:ge(5)=1:ge(6)=1:gl=3
  28. 90 fa(0)=1:gl=0:bt=1:sa=1:zm=3000:pe(2)=1:goto2105
  29. 100 ti$="000000":l$="":poke198,0:print"> [164]";
  30. 120 getx$:ifpeek(203)=1then160
  31. 121 ifti$>"000030"then160
  32. 128 ifx$=""then120
  33. 129 ifl$=""andasc(x$)=20then120
  34. 130 i=asc(x$):ifi<65ori>90thenifi<>20andi<>32andi<>34then120
  35. 135 printchr$(20);x$;"[164]";
  36. 137 ifasc(x$)=20thenl$=left$(l$,len(l$)-1):goto120
  37. 140 l$=l$+x$:ti$="000000":iflen(l$)>76thenfori=1to80:printchr$(20);:next:goto115
  38. 150 goto120
  39. 160 print".";:fori=1tolen(l$)+4:printchr$(20);:next
  40. 170 rem satz in l$(0)-l$(10) gliedern
  41. 175 fori=0to10:l$(i)="":next
  42. 180 lc=0:fori=1tolen(l$)
  43. 185 ifmid$(l$,i,1)=" "thenlc=lc+1:goto190
  44. 188 l$(lc)=l$(lc)+mid$(l$,i,1)
  45. 190 nexti
  46. 200 goto1000
  47. 500 print"[150]";a$:poke198,0:wait198,1:fori=1to40:printchr$(20);:next:r$=""
  48. 510 print"[145]";:return
  49. 1000 rem a u s w e r t u n g
  50. 1005 r$="":ca=-1:ob=0:ac=0:ve=0
  51. 1010 ca=ca+1:e$=l$(ca)
  52. 1030 ife$="n"thenr$="norden":zm=n
  53. 1040 ife$="s"thenr$="sueden":zm=s
  54. 1050 ife$="w"thenr$="westen":zm=w
  55. 1060 ife$="o"thenr$="osten":zm=o
  56. 1065 ife$="runter"thenr$="[157][157][157][157][157]runter":zm=r
  57. 1070 ife$="rauf"thenr$="[157][157][157][157][157]rauf":zm=h
  58. 1075 ife$="nw"thenr$="nordwesten":zm=nw
  59. 1080 ife$="no"thenr$="nordosten":zm=ne
  60. 1085 ife$="sw"thenr$="suedwesten":zm=sw
  61. 1090 ife$="so"thenr$="suedosten":zm=so
  62. 1100 ife$<>"warte"ande$<>"wa"then1105
  63. 1101 ifzn=3300andtu(1)<>1thenprint"ein neuer tag bricht an.":tu(1)=1:goto1600
  64. 1102 print"sie warten.":goto1600
  65. 1105 ife$="schau"thenzm=zn:goto2105
  66. 1110 ife$="oeffne"thengosub11100
  67. 1115 ife$="schliesse"thengosub11200
  68. 1116 ife$="toete"thengosub11500
  69. 1120 ife$="nimm"thenve=1:gosub11300
  70. 1122 ife$="verlier"thenve=2:gosub11300
  71. 1124 ife$="i"ore$="inventur"thengosub11400
  72. 1125 ife$="iss"thenifge(7)=1orge(7)=znthenprint"sie essen.":ge(7)=0:goto1600
  73. 1130 ife$="sag"ore$="sage"thengosub20000:goto1600
  74. 1131 ifvl=2ande$="zeit"thenvl=0:gl=2:goto1600
  75. 1132 ife$<>"grabe"orzn<>5200then1135
  76. 1133 print"sie graben im sand und entdecken eine   falltuer.":tu(7)=1:goto1600
  77. 1135 ifleft$(e$,5)="zerst"ore$="vernichte"orleft$(e$,5)="zersc"thenac=ac+1
  78. 1140 ife$="spinnennetz"ore$="netz"thenac=ac+1
  79. 1142 ife$="wirf"thenve=17
  80. 1143 ife$="seil"andge(4)=1thenob=4
  81. 1144 ifleft$(e$,4)="zieh"thenve=2
  82. 1146 ifleft$(e$,9)="ueberquer"orleft$(e$,3)="geh"thenve=3
  83. 1148 ifleft$(e$,7)="schwimm"andzn=6900thenvl=5
  84. 1150 ife$="fass"thenifge(9)=1orge(9)=znthenob=5
  85. 1152 ifleft$(e$,6)="spring"thenve=4
  86. 1500 ifca=lcthen1600
  87. 1510 goto1010
  88. 1600 :
  89. 2000 rem a c t i o n
  90. 2005 ifge(10)=1then62000
  91. 2010 ifzm=0andr$<>""thena$="kein weg in diese richtung !":gosub500:goto2200
  92. 2020 ifzm=0then2200
  93. 2100 rem neues zn
  94. 2103 print"sie gehen nach ";r$;"."
  95. 2105 zn=zm:zm=0:restore zn:print
  96. 2110 readdl
  97. 2111 fori=1todl:readd$:print"[158]";d$;:next:print"":print
  98. 2115 n=0:s=0:w=0:o=0:h=0:r=0:nw=0:ne=0:sw=0:so=0:gosubzn:gosub10000:goto2400
  99. 2200 rem
  100. 2204 ifvl>0then39000
  101. 2400 rem die monster bewegen sich
  102. 2401 ifint(10*rnd(1))>5then2403
  103. 2402 ifzn=7000thenprint"die waldelbe nimmt sie gefangen.":zm=7100:goto2105
  104. 2403 :
  105. 2410 ifpe(9)=znthen2455
  106. 2411 ok=ok+1:ifok=12thenok=1
  107. 2415 pe(9)=ok(ok)
  108. 2420 ifpe(9)<>4900then2450
  109. 2422 iftu(5)<>0then2430
  110. 2424 tu(5)=1:ifzn=4100thenprint"in der hoehle oeffnet sich ein spalt !":n=4900
  111. 2425 goto2450
  112. 2430 tu(5)=0:ifzn=4100thenprint"der spalt schliesst sich.":n=0
  113. 2450 ifpe(9)<>znthen2480
  114. 2455 print"ein ork betritt den raum !"
  115. 2460 i=int(12*rnd(1))+1
  116. 2462 ifi<=2orge(5)=1thenprint"der ork geht weiter.":goto2411
  117. 2463 ifi>9then2480
  118. 2464 ifi>2thenprint"der ork nimmt sie gefangen.":zm=5200:goto2105
  119. 2480 ifbt=0then2495: rem butler
  120. 2481 ifzn<>pe(8)thenbu=bu+1:ifbu=5thenbu=1
  121. 2482 pe(8)=bu(bu)
  122. 2483 ifpe(8)<>7100then2490
  123. 2484 iftu(10)=1then2487
  124. 2485 tu(10)=1:ifpe(8)=znthenprint"jemand oeffnet die kerkertuer.":o=7200:bu=1
  125. 2486 goto2490
  126. 2487 tu(10)=0:ifpe(8)=znthenprint"jemand schliesst die kerkertuer.":o=0
  127. 2490 ifpe(8)<>znorzn=7100then2495
  128. 2491 print"der butler des elbenkoenigs erscheint   ploetzlich !"
  129. 2492 ifint(10*rnd(1))>4then2494
  130. 2493 print"der butler nimmt sie gefangen.":zm=7100:goto2105
  131. 2494 pe(8)=bu(bu)
  132. 2495 ifsa=0then2500
  133. 2496 ms=ms+1:ifms=5thenms=1
  134. 2497 ifsm=znthengosub34000:vl=6:dr=1:goto2500
  135. 2498 sm=sm(ms):ifsm=znthendr=1
  136. 2500 gosub9000:rem t h o r i n
  137. 2501 ifpe(3)=znthengosub9500:remgandalf
  138. 2502 ifpe(4)=znthengosub30000:rem elrond
  139. 2503 ifpe(7)=znthengosub31000:rem gollum
  140. 2504 ifpe(1)=znthengoto32000:rem warg
  141. 2505 ifba=1thengosub33000:rem bard
  142. 2506 ifdr=1andsa=1thengosub34000:rem smaug
  143. 2509 it=0:ifac=2andzn=6800thenit=1:ifge(3)=1thentu(8)=1:o=6900:it=2
  144. 2510 ifit=1andge(3)<>1thena$="sie haben kein schwert !":gosub500:return
  145. 2511 ifit=2thenprint"sie zerschlagen das spinnennetz mit dem schwert."
  146. 2520 ifve<>17orob<>4orzn<>6900then2550
  147. 2521 iftu(9)=1thena$="das haben sie bereits.":gosub500:return
  148. 2530 print"sie werfen das seil ueber den fluss.":fori=1to2000:next:ge(4)=6900
  149. 2540 print"das seil verfaengt sich im boot.":tu(9)=1
  150. 2550 ifve<>2orob<>4andge(4)<>6900ortu(9)<>1then2570
  151. 2555 print"sie ziehen das boot zu sich herueber.":tu(9)=2:ge(4)=1
  152. 2570 ifve<>3ortu(9)<>2then2580
  153. 2575 print"sie ueberqueren den fluss mit dem boot.":pe(2)=7600:zm=7000
  154. 2576 tu(9)=3:goto2105
  155. 2580 ifzn<>7300then2600
  156. 2582 ifve<>17orob<>5orfa(0)<>1then2585
  157. 2583 print"sie werfen das fass durch die falltuer.":ge(9)=7500
  158. 2585 ifve<>4orfa(0)<>1then2600
  159. 2587 print"sie springen durch die falltuer in das  fass,das im fluss schwimmt."
  160. 2590 fori=1to3000:next
  161. 2591 print"sie treiben auf dem fluss in oestliche  richtung.":pe(2)=7600
  162. 2592 fori=1to3000:next
  163. 2594 print"in einer starken kurve werden sie aus   dem fass heraus ans ufer";
  164. 2595 print" geschleudert."
  165. 2597 zm=7600:goto2105
  166. 2600 :
  167. 2899 goto100
  168. 2910 rem     s p i e l k a r t e
  169. 3000 data 3,sie befinden sich in einer kompfortabel eingerichteten hoehle ,
  170. 3010 data die einer langen  halle aehnelt.
  171. 3015 data 0
  172. 3016 iftu(0)=1theno=3100
  173. 3030 gosub60000:return
  174. 3100 data 1,das einsame tal:n=3200:vl=0:gosub60050:return
  175. 3200 data 1,lagerplatz der trolle
  176. 3202 iftu(1)=-1thenvl=1:goto39000
  177. 3203 iftu(1)=0thentu(1)=-1:gosub60090
  178. 3205 iftu(1)=1thenpe$(10)="die versteinerten trolle"
  179. 3206 iftu(1)=1andge(2)=10thenge(2)=3200
  180. 3207 iftu(1)=1then3230
  181. 3210 print"der boese troll sagt 'kann man den wohl kochen ?'"
  182. 3220 print"der fette troll meint 'er wird kaum ei- nen mundvoll geben.'
  183. 3230 s[178]3100:n[178]3300:so[178]3500
  184. 3231 [139]tu(1)[178][171]1[167]vl[178]1
  185. 3240 [142]
  186. 3300 [131] 3,dunkler pfad mit fussspuren der trolle. ,
  187. 3302 [131] noerdlich liegt die tuer zur hoehle der trolle.:[141]60310
  188. 3303 [139]tu(3)[178]1[167]n[178]3400
  189. 3305 s[178]3200:vl[178]0:[142]
  190. 3400 [131] 1,in der hoehle der trolle:s[178]3300:[142]
  191. 3500 [131] 1,am kleinen fluss:vl[178]0:nw[178]3200:so[178]3600:tu(4)[178]0:[142]
  192. 3600 [131] 1,rivendell:nw[178]3500:o[178]3700:[142]
  193. 3700 [131]1,im nebelgebirge:w[178]3600:n[178]3800:o[178]4300:[142]
  194. 3800 [131]1,im nebelgebirge:s[178]3700:n[178]3900:[142]
  195. 3900 [131]1,im nebelgebirge:s[178]3800:ne[178]4000:[142]
  196. 4000 [131]1,im nebelgebirge:sw[178]3900:so[178]4400:[142]
  197. 4100 [131]1,trockene hoehle im nebelgebirge:[139]tu(5)[178]1[167]n[178]4900
  198. 4110 s[178]4200:[142]
  199. 4200 [131]1,im nebelgebirge:nw[178]3900:n[178]4100:s[178]4300:[142]
  200. 4300 [131]1,im nebelgebirge:w[178]3700:n[178]4200:o[178]4800:nw[178]3800:[142]
  201. 4400 [131]1,im nebelgebirge:nw[178]4000:r[178]4500:[142]
  202. 4500 [131]1,im nebelgebirge:r[178]4600:[142]
  203. 4600 [131]1,im nebelgebirge:w[178]4700:[142]
  204. 4700 [131]1,im nebelgebirge:sw[178]4300:o[178]4600:[142]
  205. 4800 [131]1,ein schwerer und gefaehrlicher gebirgs- pfad im nebelgebirge
  206. 4810 w[178]4300:o[178]6100:[141]60175:[142]
  207. 4900 [131] 1,hoehlensystem der orks:s[178]4100:o[178]5000:ne[178]5300:[142]
  208. 5000 [131] 1,hoehlensystem der orks:w[178]4900:n[178]5300:o[178]5100:[142]
  209. 5100 [131] 1,hoehlensystem der orks:w[178]5000:nw[178]5300:n[178]5400:[142]
  210. 5200 [131] 1,gefaengnis der orks:[142]
  211. 5300 [131] 1,hoehlensystem der orks
  212. 5310 w[178]5200:sw[178]4900:s[178]5000:so[178]5100:o[178]5400:h[178]5600:[142]
  213. 5400 [131] 1,hoehlensystem der orks:w[178]5300:s[178]5100:h[178]5700:[142]
  214. 5500 [131] 1,hoehlensystem der orks:n[178]5800:o[178]5600:[142]
  215. 5600 [131] 1,hoehlensystem der orks:w[178]5500:r[178]5300:[142]
  216. 5700 [131] 1,hoehlensystem der orks:nw[178]5900:n[178]6000:[142]
  217. 5800 [131] 1,hoehlensystem der orks:s[178]5500:o[178]5900:[142]
  218. 5900 [131] 1,hoehlensystem der orks:w[178]5800:so[178]5700:[142]
  219. 6000 [131] 1,feuchte grotte:s[178]5700:[142]
  220. 6100 [131] 1,eine waldlichtung:w[178]4800:[142]
  221. 6300 [131] 1,weites grasland am fuss des gebirges:n[178]6400:[142]
  222. 6400 [131]1,beorns haus:ge(7)[178]6400:s[178]6300:o[178]6600:ne[178]6500:[141]60345:[142]
  223. 6500 [131]1,das tor zu mirkwald:sw[178]6400:s[178]6600:o[178]6700:[141]60140:[142]
  224. 6600 [131]1,auf dem nachtwaldweg
  225. 6610 w[178]6400:o[178]6800:s[178]6700:[142]
  226. 6700 [131]1,auf dem nachtwaldweg
  227. 6710 [153]"sie sehen riesiege augen auf sie herun- terstarren.":vl[178]4:[142]
  228. 6800 [131]1,auf dem nachtwaldweg
  229. 6810 w[178]6600:s[178]6700
  230. 6820 [139]tu(8)[178]1[167]o[178]6900:[142]
  231. 6830 [153]"ein riesiges spinnennetz versperrt den  weg nach osten.":[142]
  232. 6900 [131]1,der schwarze schnelle fluss
  233. 6910 w[178]6800
  234. 6920 [139]tu(9)[179]2[167][153]"auf der anderen seite des flusses liegt ein boot."
  235. 6930 [142]
  236. 7000 [131]1,auf dem nachtwaldweg
  237. 7010 [142]
  238. 7100 [131]1,im kerker der waldelben
  239. 7110 [142]
  240. 7200 [131] 1,in einem gang
  241. 7210 w[178]7100:s[178]7400:[142]
  242. 7300 [131]1,im weinkeller des elbenkoenigs
  243. 7310 o[178]7400:[141]60270:[142]
  244. 7400 [131] 1,an der magischen tuer
  245. 7410 n[178]7200:w[178]7300:[142]
  246. 7600 [131]1,am grossen see
  247. 7610 o[178]7700:[142]
  248. 7700 [131] 1,die stadt esgaroth
  249. 7710 w[178]7600:n[178]7800:[141]60220:[142]
  250. 7800 [131] 1,am schnellen fluss
  251. 7810 n[178]8000:s[178]7700:o[178]7900:[142]
  252. 7900 [131] 1,am wasserfall:[141]60405
  253. 7910 w[178]7800:[142]
  254. 8000 [131] 1,wuestenland
  255. 8010 s[178]7800:h[178]8100:[142]
  256. 8100 [131] 1,die ruinen von dal:[141]60470
  257. 8110 r[178]8000:h[178]8200:[142]
  258. 8200 [131] 1,der einsame berg:[141]63100
  259. 8210 n[178]8400:r[178]8100:nw[178]8300:ne[178]8500:[142]
  260. 8300 [131] 1,der rabenhuegel
  261. 8310 so[178]8200:[142]
  262. 8400 [131] 1,eingang zur drachenhoehle
  263. 8410 s[178]8200:[142]
  264. 8500 [131]1,trockene hoehle
  265. 8505 [139]fa(1)[178]1[167]r[178]8600
  266. 8510 sw[178]8200:[142]
  267. 8600 [131]1,die schlafkammer des drachen
  268. 8610 sw[178]8400:[142]
  269. 9000 [139]pe(2)[178]5200[175]zn[179][177]5200[175]zn[179]6100[167]9050
  270. 9001 [143]  t h o r i n
  271. 9002 [139]zn[177]4900[175]zn[179]6300[167]9050
  272. 9003 ic[178]0:[139]pe(2)[179][177]zn[167]r$[178]"thorin kommt herbei.":pe(2)[178]zn:ic[178]1
  273. 9004 [139]ic[178]1[175]pe(3)[179][177]zn[175]pe(3)[179][177]0[167]pe(3)[178]zn:pe(2)[178]zn:r$[178]"beide"
  274. 9005 [139]r$[178]""[167]9009
  275. 9006 [139]r$[178]"beide"[167]r$[178]"thorin und gandalf kommen herbei."
  276. 9007 [153]r$
  277. 9009 [139]ge(1)[178]2[175]zn[178]3000[167][153]"thorin gibt ihnen die karte.":ge(1)[178]1
  278. 9010 [139][181](10[172][187](1))[177]4[167][142]
  279. 9011 [139]pe(3)[178]3100[175]zn[178]3000[167][153]"thorin sagt 'beeil dich !'":[137]9016
  280. 9015 [139][181](10[172][187](1))[178]5[167][153]"thorin sagt 'beeil dich !'":[137]9020
  281. 9016 [139][181](20[172][187](1))[178]5[167][153]"thorin beginnt von gold zu singen.":[137]9020
  282. 9017 [139][181](20[172][187](1))[178]5[167][153]"thorin setzt sich und wartet."
  283. 9018 [139][181](20[172][187](1))[179][177]5[176]pe(3)[179][177]0[167]9020
  284. 9019 [153]"thorin sagt'waere gandalf nur bei uns.'.
  285. 9020 ifzn>=4900andzn<6000andint(20*rnd(1))+1>3andpe(2)<>5200thenpe(2)=4800
  286. 9050 ifpe(3)<3700then9055
  287. 9051 print"gandalf sagt 'wichtige aufgaben warten  auf mich[160]!' und geht fort."
  288. 9052 pe(3)=0
  289. 9055 ifzn=5200andpe(2)<>5200thenprint"thorin kommt herein.":pe(2)=5200
  290. 9060 ifge(6)=1thenprint"thorin nimmt den goldschluessel.":ge(6)=2
  291. 9070 ifsa<>0orzn<>8500orfa(1)<>0then9499
  292. 9075 print"ein roter sonnenstrahl trifft auf die   glatte felswand in der";
  293. 9076 print" hoehle !":fori=1to2000:next
  294. 9080 print"ein flaches stueck gestein splittert vomfels und faellt herunter."
  295. 9090 print"ein kleines loch erscheint etwa drei    fuss ueber der erde !"
  296. 9095 print"thorin steckt den goldschluessel in das loch."
  297. 9097 print"eine tuer tut sich auf - ein steiler wegfuehrt von ihr hinab in ";
  298. 9098 print"die dunkelheit.":fa(1)=1:r=8600
  299. 9499 return
  300. 9500 rem  g a n d a l f
  301. 9503 ifun(0)=3thenun(0)=0:print"gandalf sagt 'was soll der quatsch ?'"
  302. 9504 ifint(10*rnd(1))>4thenreturn
  303. 9505 ifzn=3000andtu(0)=1thenprint"gandalf geht nach osten.":pe(3)=3100
  304. 9510 ifzn=3000andtu(0)=0thenprint"gandalf oeffnet die tuer.":tu(0)=1:o=3100
  305. 9512 ifzn<>3100orga(0)=1then9514
  306. 9513 print"gandalf sagt 'ein grosses abenteuer ste-ht dir bevor !'":ga(0)=1
  307. 9514 :
  308. 9517 ifint(20*rnd(1))=1andge(1)=1thenge(1)=3:print"gandalf nimmt die karte."
  309. 9519 ifint(20*rnd(1))=1andge(1)=3thenge(1)=1:print"gandalf gibt dir die karte.
  310. 9520 [139][181](30[172][187](1))[178]1[167][153]"gandalf sagt 'was nun ?'."
  311. 9999 [142]
  312. 10000 [143] moegliche richtungen                                        [160]
  313. 10010 r$[178]"":[139]n[167]r$[178]r$[170]"n,"
  314. 10011 [139]s[167]r$[178]r$[170]"s,"
  315. 10012 [139]o[167]r$[178]r$[170]"o,"
  316. 10013 [139]w[167]r$[178]r$[170]"w,"
  317. 10014 [139]nw[167]r$[178]r$[170]"nw,"
  318. 10015 [139]ne[167]r$[178]r$[170]"no,"
  319. 10016 [139]sw[167]r$[178]r$[170]"sw,"
  320. 10017 [139]so[167]r$[178]r$[170]"so,"
  321. 10018 [139]h[167]r$[178]r$[170]"rauf,"
  322. 10019 [139]r[167]r$[178]r$[170]"runter,"
  323. 10020 [139]r$[178]""[167]10100
  324. 10030 [153]"moegliche richtungen: ";[200](r$,[195](r$)[171]1):[153]:r$[178]""
  325. 10100 [143] sie sehen ...
  326. 10105 ic[178]0:s$[178]""
  327. 10110 [153]"sie sehen : on"
  328. 10120 [129]i[178]1[164]10:[139]pe(i)[179][177]zn[167]10125
  329. 10121 ic[178]1:i$[178]pe$(i):[139][200](i$,3)[178]"der"[167]i$[178][202](i$,4,[195](i$)):i$[178]"einen"[170]i$
  330. 10123 [153]s$;i$
  331. 10125 [139]ge(i)[178]zn[167][153]s$;ge$(i):ic[178]1
  332. 10130 [130]
  333. 10190 [139]zn[178]3000[167]ic[178]1:[153]s$"die truhe
  334. 10200 ifzn=3000thenic=1:prints$"die tuer
  335. 10201 [139]zn[178]6300[167]ic[178]1:[153]s$"den carrock
  336. 10202 ifzn=3300thenic=1:prints$"die tuer zur trollhoehle
  337. 10210 [139]zn[178]4100[175]tu(5)[178]1[167]ic[178]1:[153]s$"einen spalt in der nordwand."
  338. 10220 [139]zn[178]5200[167]ic[178]1:[153]s$"ein fenster im westen.
  339. 10222 ifzn=5200thenic=1:prints$"die gefaengnistuer.
  340. 10223 [139]zn[178]5200[167]ic[178]1:[153]s$"den sandboden
  341. 10224 iftu(7)=1andzn=5200thenprints$"die falltuer"
  342. 10225 ifzn=7300thenprints$"die falltuer"
  343. 10226 ifsa=0andzn=msthenprints$"den toten smaug."
  344. 10227 ifzn=7300thenprint"unter der falltuer rauscht ein starker  fluss."
  345. 10228 ifzn=8500andfa(1)=1thenprints$"eine oeffene tuer"
  346. 10229 iftu(9)=2andzn=6900thenprints$"ein boot"
  347. 10230 ifzn=7100thenprints$"tuer nach osten"
  348. 10290 ific=0thenprint"           [157][157][157][157][157][157][157][157][157][157][157][145]";
  349. 10300 fori=1to10
  350. 10310 ifge(i)=0orge(i)>=3000then10350
  351. 10320 :forii=2to10
  352. 10325 ::ifge(i)=iiandpe(ii)=znthenprint"";pe$(ii);" hat ";ge$(i);"."
  353. 10330 :nextii
  354. 10350 nexti
  355. 10500 rem ific=1thenprint
  356. 10600 return
  357. 11000 rem routinen fuer verben
  358. 11010 ob=0:fori1=0tolc:e$=l$(i1)
  359. 11020 ife$="tuer"thenob=1
  360. 11030 ife$="truhe"thenob=2
  361. 11031 ife$="fenster"thenob=3
  362. 11032 ife$="falltuer"thenob=4
  363. 11040 nexti1:return
  364. 11100 rem oeffne ********
  365. 11110 gosub11000
  366. 11114 ifob<>2then11125
  367. 11115 ifob=2andzn<>3000thena$="hier ist keine truhe.":gosub500:return
  368. 11117 iftu(2)=0thenprint"sie oeffnen die truhe.":tu(2)=1:return
  369. 11118 iftu(2)=1thena$="die truhe ist bereits offen.":gosub500:return
  370. 11125 ifob<>1orzn<>3000then11128
  371. 11126 iftu(0)=1thena$="die tuer ist bereits offen.":gosub500:return
  372. 11127 iftu(0)=0thenprint"sie oeffnen die tuer.":tu(0)=1:o=3100:return
  373. 11128 ifzn<>3300then11140
  374. 11130 iftu(3)=0andge(2)=1thenprint"sie oeffnen die tuer.":tu(3)=1:n=3400:return
  375. 11131 iftu(3)=0andge(2)<>1thena$="sie haben keinen schluessel.":gosub500:return
  376. 11132 iftu(3)=1thena$="die tuer ist bereits offen.":gosub500:return
  377. 11140 ifob=3andzn=5200thena$="sie sind zu klein dazu.":gosub500:return
  378. 11145 ifzn<>7300orob<>4then11160
  379. 11147 iffa(0)=0thenfa(0)=1:print"sie oeffnen die falltuer.":return
  380. 11148 iffa(0)=1thena$="die falltuer ist bereits offen.":gosub500:return
  381. 11160 a$="sie koennen das nicht oeffnen.":gosub500:return
  382. 11200 rem schliesse  *********
  383. 11210 gosub11000
  384. 11214 ifob<>2then11225
  385. 11215 ifob=2andzn<>3000thena$="hier ist keine truhe.":gosub500:return
  386. 11217 iftu(2)=1thenprint"sie schliessen die truhe.":tu(2)=0:return
  387. 11218 iftu(2)=0thena$="die truhe ist bereits zu.":gosub500:return
  388. 11225 ifob<>1orzn<>3000then11230
  389. 11226 iftu(0)=0thena$="die tuer ist bereits zu.":gosub500:return
  390. 11227 iftu(0)=1thenprint"sie schliessen die tuer.":tu(0)=0:un(0)=un(0)+1:o=0:return
  391. 11230 ifzn=3300andtu(3)=1thenprint"sie schliessen die tuer.":tu(3)=0:n=0:return
  392. 11231 ifzn=3300andtu(3)=0thena$="die tuer ist bereits zu.":gosub500:return
  393. 11232 ifzn<>7300thenreturn
  394. 11233 ifob=4andfa(0)=1thenfa(0)=0:print"sie schliessen die falltuer.":return
  395. 11235 ifob=4andfa(0)=0thena$="die falltuer ist bereits zu.":gosub500:return
  396. 11260 a$="das geht nicht.":gosub500:return
  397. 11300 rem nimm / verliere **********
  398. 11310 im=0:s$="":g1=0:fori=0tolc:e$=l$(lc)
  399. 11320 fori1=1to10
  400. 11330 ife$=mid$(ge$(i1),5,len(ge$(i1))-4)thenim=i1:i1=11:i=lc+1
  401. 11340 nexti1:nexti
  402. 11350 s$=ge$(im):g1=ge(im)
  403. 11360 ifve=1andg1=1thena$="sie haben das bereits.":gosub500:return
  404. 11365 ifve=1andg1=znthenprint"sie nehmen ";s$;".":ge(im)=1:return
  405. 11366 ifve=1thena$="sie koennen das nicht nehmen.":gosub500:return
  406. 11370 ifve=2andg1=1thenge(im)=zn:print"sie verlieren ";s$;".":return
  407. 11375 a$="sie haben das nicht.":gosub500:return
  408. 11400 rem inventur ************
  409. 11410 print"sie haben :[145]"
  410. 11420 ic=0:fori=1to10:ifge(i)=1thenprint,""ge$(i):ic=1
  411. 11430 nexti
  412. 11440 ific=0thenprint,"nichts"
  413. 11450 return
  414. 11500 rem toete *********
  415. 11505 p$="":p=0:fori=1tolc:e$=l$(lc)
  416. 11506 ife$="thorin"andpe(2)=znthenp$="thorin"
  417. 11507 ife$="gandalf"andpe(3)=znthenp$="gandalf"
  418. 11508 ife$="elrond"andpe(4)=znthenp$="elrond"
  419. 11509 ife$="waldelbe"andpe(5)=znthenp$="die waldelbe"
  420. 11510 ife$="gollum"andpe(7)=znthenp$="gollum"
  421. 11511 ife$="ork"andpe(9)=znthenp$="ork"
  422. 11512 ife$="troll"andpe(10)=znthenp$="troll"
  423. 11513 ife$="butler"andpe(8)=znthenp$="der butler"
  424. 11519 nexti
  425. 11520 ifp$=""thena$="ich seh das hier nicht":gosub500:return
  426. 11540 print"sie greifen "p$" an !"
  427. 11550 ifp$="der butler"then11570
  428. 11552 print:printp$" verteidigt sich zu sehr !"
  429. 11554 fori=1to2000:next
  430. 11556 print:printp$" hat sie getoetet.":vl=1.4:return
  431. 11570 ifge(3)<>1thenprint"der butler hat sie getoetet.":vl=1.4:return
  432. 11572 print"sie haben den butler mit einem schlag   enthauptet.":bt=0
  433. 11574 pe$(8)="den toten butler":return
  434. 20000 rem    s p r e c h e n
  435. 20005 ic=0:fori=2to7
  436. 20010 ifpe$(i)=l$(1)thenic=1
  437. 20011 ifpe(i)=znandic=1thenp$=pe$(i):p=i:ic=2
  438. 20015 nexti
  439. 20020 ific=1thena$=""+l$(1)+" ist nicht anwesend.":gosub500:return
  440. 20022 ific=0thena$="das geht nicht.":gosub500:return
  441. 20030 print"sie sagen etwas zu ";p$;"."
  442. 20040 i1=0:i2=0:fori=1tolen(l$)
  443. 20042 ifmid$(l$,i,1)<>chr$(34)then20045
  444. 20043 ifi1=0theni1=i+1:goto20045
  445. 20044 ifi2=0theni2=i
  446. 20045 nexti
  447. 20050 l$=mid$(l$,i1,i2-i1)
  448. 20060 rem satz in l$(0)-l$(10) gliedern
  449. 20062 fori=0to10:l$(i)="":next
  450. 20064 lc=0:fori=1tolen(l$)
  451. 20066 ifmid$(l$,i,1)=" "thenlc=lc+1:goto20070
  452. 20068 l$(lc)=l$(lc)+mid$(l$,i,1)
  453. 20070 nexti
  454. 20100 rem analysieren
  455. 20105 eg=0:ve=0:gg=0:fori=0tolc:e$=l$(i)
  456. 20110 ife$="lies"ore$="untersuche"thenve=1
  457. 20120 ife$="gib"thenve=2
  458. 20121 ife$="smaug"theneg=3
  459. 20130 ifleft$(e$,4)="trag"thenve=3
  460. 20140 ifleft$(e$,3)="geh"thenve=4
  461. 20145 ife$="nimm"thenve=5
  462. 20150 ife$="verlier"thenve=6
  463. 20160 ife$="hilf"thenve=7
  464. 20170 ife$="mir"ore$="mich"theneg=1
  465. 20171 ife$="oeffne"thenve=8
  466. 20172 ife$="fenster"theneg=2
  467. 20173 ife$="toete"thenve=8
  468. 20174 ifvl=2ande$="zeit"thenvl=0:gl=2
  469. 20175 fori1=1to10
  470. 20176 ife$=mid$(ge$(i1),5,len(ge$(i1))-4)thengg=1
  471. 20180 nexti1
  472. 20190 nexti
  473. 20200 rem
  474. 20210 ifve<>1orp<>4orgg<>1then20280
  475. 20212 ifge(1)<>1then20500
  476. 20215 print"elrond betrachtet die karte.":print"elrond sagt ";
  477. 20220 ifik=0thenik=(int(5*rnd(1))+1)*10+20220
  478. 20221 gotoik
  479. 20230 print"'nordoestlich von beorns    haus liegt das tor zu mirkwald.'."
  480. 20231 return
  481. 20240 print"'noerdlich vom carrock liegtdas haus von beorn.'.":return
  482. 20250 print"'oestlich vom grossen see   liegt die stadt esgaroth.'.":return
  483. 20260 print"'oestlich vom schnellen     fluss ist ein wasserfall.'.":return
  484. 20270 print"auf der nordwestseite des einsamen berges ist der rabenhuegel.'."
  485. 20271 return
  486. 20280 ifve=2andp=3andge(gg)=3thenprint:printpe$(3)" gibt ihnen ";ge$(gg)
  487. 20281 ifve=2andp=3andge(gg)=3thenge(gg)=1
  488. 20290 ifve=3andeg=1andp=2andzn=5200thenprint"thorin traegt sie.":tr=1:return
  489. 20292 ifve<>8orp<>2oreg<>2ortu(6)<>0then20295
  490. 20293 print"thorin oeffnet das fenster.":tu(6)=1:return
  491. 20295 ifp=2andve=4andtr=1thentr=0:zm=5300:print:r$="[157][157][157][157][157][157] durch das fenster":return
  492. 20300 ifp=6andve=7thenprint"bard sagt 'ich werde smaug toeten !'.":ba=1:return
  493. 20310 ifeg<>3orp<>6orve<>8orsm<>znthen20320
  494. 20311 print"bard nimmt seinen schwarzen pfeil.":print"eine alte drossel ";
  495. 20312 print"kommt angeflogen und  setzt sich auf bards schulter.
  496. 20313 [153]"bard sagt 'schwarzer pfeil,du hast nie  gefehlt,glueck sei mit dir.
  497. 20314 fori=1to2000:next:print"bard schiesst auf smaug."
  498. 20315 fori=1to3000:next:ifint(100*rnd(1))<95then20317
  499. 20316 print"der schwarze pfeil verfehlt smaug !":vl=6:return
  500. 20317 print"der schwarze pfeil bohrt sich tief in   smaugs brust !"
  501. 20318 print"smaug stuerzt und stirbt.":sa=0:ms=zn:vl=0
  502. 20320 return
  503. 20499 ifp=7then20600
  504. 20500 print""p$" sagt 'nein.'.
  505. 20600 [142]
  506. 30000 [143]  e l r o n d
  507. 30005 tu(4)[178]tu(4)[170]1
  508. 30010 [139]tu(4)[178]1[167][153]"elrond sagt 'hallo !'.
  509. 30015 iftu(4)=2thenprint"elrond bietet ihnen etwas zu essen an.":ge(7)=3600
  510. 30020 return
  511. 31000 rem g o l l u m
  512. 31005 ifgl>1then31100
  513. 31010 print"gollum fragt 'etwas,das alles und jeden verschlingt:baum der rau";
  514. 31012 print"scht,vogel der  singt,frisst eisen,zermalmt den haertes-ten stein,";
  515. 31014 print"zerbeisst jedes schwert,zerb- richt jeden schrein,schlaegt ";
  516. 31015 print"koenige    nieder,schleift ihren palast,traegt     maechtigen fels";
  517. 31017 print" fort als leichte last?'.":vl=2:gl=2:return
  518. 31100 ifgl=2thenprint"gollum sagt'er weiss es mein schatzzz.'.":gl=3:return
  519. 31110 gl=gl+1:ifgl>5andge(5)=1thenge(5)=7:print"gollum nimmt den ring.":return
  520. 31120 ifge(5)=1thenprint"gollum sagt ' was hat er in der tasche  mein schatz?'.
  521. 31130 [139]ge(5)[178]7[167]vl[178]2
  522. 31140 [142]
  523. 32000 [143] w a r g
  524. 32010 [153]"der fuerchterliche warg greift sie an !"
  525. 32020 [139]ge(3)[170]ge(4)[170]ge(5)[179][177]3[176]gl[178]0[167]32100
  526. 32030 [153]"sie verteidigen sich mit ganzer kraft...
  527. 32032 fori=1to3000:next
  528. 32034 print"ein riesiger adler stuerzt aus der luft auf sie herunter,packt sie ";
  529. 32036 print"mit seinen   klauen und fliegt davon !
  530. 32038 [129]i[178]1[164]2000:[130]:pe(2)[178]6300
  531. 32040 [153]"nach einem langen flug landet der adler in der naehe eines ";
  532. 32042 [153]"felsplateaus,laesst  sie frei und fliegt davon...":zm[178]6300:[137]2105
  533. 32100 vl[178]3:[137]39000
  534. 33000 [143]  b a r d
  535. 33010 [139]pe(6)[179][177]zn[167]pe(6)[178]zn:[153]"bard folgt ihnen."
  536. 33050 [142]
  537. 34000 [143]  s m a u g
  538. 34010 [139]sm[178]zn[167][153]"smaug erscheint !"
  539. 34040 [139][181](20[172][187](1))[179]5[167][153]"smaug sagt 'ich krieg dich,dieb !'."
  540. 34100 [142]
  541. 39000 [143] v e r l o r e n
  542. 39010 [153]
  543. 39015 [139]vl[178]1[167][153]"der troll hat sie gefressen."
  544. 39017 [139]vl[178]2[167][153]"jemand hat sie von hinten erwuergt.
  545. 39019 ifvl=3thenprint"der warg hat sie getoetet.
  546. 39020 [139]vl[178]4[167][153]"etwas schweres faellt herunter und er-  schlaegt sie."
  547. 39021 [139]vl[178]5[167][153]"als sie das wasser beruhren fallen sie  in schlaf....."
  548. 39023 [139]vl[178]6[167][153]"smaug hat sie gefressen.
  549. 39500 end
  550. 60000 rem g r a f i k                                       close
  551. 60005 rem hobbit-hoehle
  552. 60015 print,"[149]       [164][164][164][164][164][164][164]",,,"    [175][175][186][129][205]  [194]  [206][146][149][204][175]",,," [175][175][186][129][205]  [205][205] [194] [206][206] [206][146][149][204][175]
  553. 60020 [153],"thenfor(NULL)  (NULL)(NULL)  (NULL)verify=>=for(NULL) (NULL)(NULL) waitstepverifyfn",,,"+ for(NULL)  (NULL)verify=>=>=>=>for(NULL) waitstep verifysgn
  554. 60025 print,"[167]  [178][177][178][177][178][177][178][177][178][177][178][177][178][146]  [165]",,,"[167]  [177][178][177][178][177][178][177][178][177][178][177][178][177][146]  [165]
  555. 60030 [153],"then  =>(NULL)(NULL)verify=>waitfor(NULL)tototowaitstepverify>=wait  fn",,,"then  >=sgn+verify>=forfncmdchr$peekpeekverify=>wait  fn
  556. 60035 print,"[167]  [178][177][204][186][149][178][177][151][172][129][200][200][149][177][178][146]  [165]",,,"[170]  [177][178][177][178][177][178][129][199][194][194][149][178][177][146]  [165]
  557. 60040 [153],"then  =>=>=>forsteptab(tab(tab((NULL)verify>=wait  fn",,,"+ forsteptab(tab(tab(tab(tab(tab(     tab(tab((NULL)waitverify fn
  558. 60045 print,"[167][129][169]               [223][146][149][165]":goto63000
  559. 60050 rem wuestenland
  560. 60055 print"[149]","[170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][180]
  561. 60060 [129]i[178]1[164]13:[153],"+",," sgn":[130]
  562. 60065 [153]"onononononononononononononon",".on..onon....on.
  563. 60070 print,"[151][206][145][206][145][206][145][206][205][205][206][205][206][145][206][205][205][206][205][206][205]  [206][205]",,"[206] [206]   [206] [206]  [205][206]
  564. 60075 [153],"(NULL) (NULL)   (NULL) (NULL)   (NULL)",,,,"  verify(NULL)(NULL)",,,"+(NULL)  (NULL)(NULL)  +(NULL)",,,"(NULL)sgn  +(NULL)  +
  565. 60080 print,"[170]   [170]  [170][129][223]        [146]":fori=1to2:print,"                    [146]"
  566. 60085 next:goto63000
  567. 60090 remork-grillplatz
  568. 60095 print,"[149] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":fori=1to14:print,"[170]",,"[165]":next
  569. 60100 print," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  570. 60105 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]",".   .[145]..[145][145]...
  571. 60110 [153],,"ononcmdcmdcmdcmdverify(NULL)(NULL) (NULL)(NULL)cmdcmdcmdcmdcmd+(NULL)(NULL)+(NULL)(NULL)(NULL)(NULL)(NULL)",,,"(NULL)(NULL)(NULL)sgn (NULL)sgn(NULL)sgn+(NULL)(NULL)(NULL)
  572. 60115 print,"[167][205][206] [205][206][170][206][206][170][206][170][206][205][180][205][180][205][206][206][165]",,"[170][205][180][205][170][205][170][206][205][205][180][205][180][170][206][170][206] [205][180][180]
  573. 60120 [153],"then+(NULL)(NULL)(NULL)sgn(NULL)sgn (NULL)sgn+ (NULL)sgn+(NULL) +(NULL)fn",,"+(NULL) +(NULL)+  +pokerndrnd*verify+ (NULL)sgn(NULL)(NULL)sgnsgn
  574. 60125 print,"[167][205][165][205][205][180][206][180] [151][190][149][206][158][216][149][205][151][187][149] [170][206] [170][206][165]",,"[170][170][206] [170][206]   [151][188] [190][190][149]  [205][180] [205][180][180]
  575. 60130 [153],"then+  +           sgn  sgnfn",,"+      forspc(spc(spc(spc(spc(spc(spc(spc(getverify   sgn
  576. 60135 print,"[167][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][165]":goto63000
  577. 60140 rem das waldtor
  578. 60145 print,"[154]                [146]",,,"      [206][205][206][205]      [146]
  579. 60150 [153],"(NULL)  (NULL)(NULL)(NULL) (NULL)  (NULL)(NULL)(NULL)(NULL)(NULL) wait",,," (NULL)(NULL) (NULL) (NULL)waitsys(NULL)(NULL)cont (NULL) (NULL)  (NULL)wait
  580. 60155 print," [206] [206] [206][146][158][206][206][205][205][154] [206]    [146]",,,"[206]    [146][158][206][206]  [205][205][154]     [146]
  581. 60160 [153],"sysnewnewnewnewnew(NULL)usrusrusrusr(NULL)newnewnewnewnew",,,"verify=>=>=syswait(NULL)(NULL)usrusr(NULL)(NULL)verify=>=>=
  582. 60165 print,"[177][178][177][178][177][158][146][180][180]  [146][170][170][149][177][178][177][178][177]",,,"[178][177][178][177][178][158][146][180][180]  [146][170][170][149][178][177][178][177][178]
  583. 60170 [153],">=>=>syswaitsgnsgn  wait++verify>=>=>",,,"for                wait":[137]63000
  584. 60175 [143] gebirgspfad
  585. 60180 [153],"verify tototototototototototototototototototo",,"+    .forsgnsgnsgn sgn sgn  sgn  peek waitverifyfn
  586. 60185 print,"[167] .[129]   [180][180][180] [180] [180]  [180]  [194] [146][149][165]",,"[170]  .[129]  [181][180][180] [180] [180]  [180]  [194] [146][149][165]
  587. 60190 [153],"then.   .forgetsgnsgn sgn sgn  sgn  peek waitverifyfn",,"+ forstep(NULL)wait  getsgnsgn sgn sgn  sgn  peek waitverifyfn
  588. 60195 print,"[167][129][169][206][205][223][169][149][183][183][208][129][146][223][180] [180]  [180]  [194] [146][149][165]",,"[170][129][206]  [205][205][149]  [170][223][129][146] [223][180]  [180]  [194] [146][149][180]
  589. 60200 [153],"thenfor (NULL)(NULL) (NULL)verify  ++ (NULL)wait for(NULL) sgn  peek waitverifyfn",,"+for(NULL)  (NULL)(NULL)verify  ++ ++openwait for (NULL)  peek waitverifyfn
  590. 60205 print,"[167][129]   [206] [149]  [170][170] [170][170] [146]  [129][223] [194] [146][149][165]",,"[170][151]     [149]  [170][170] [170][170] [146]   [129][223][194] [146][149][165]
  591. 60210 [153],"thenpoke         verify ++ wait    for(NULL) waitverifyfn",,"thenpoke             wait     for(NULL)verifyfn
  592. 60215 print," [149][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":goto63000
  593. 60220 rem forrestriver
  594. 60225 fori=1to6:print,"[154]                   [146]":next
  595. 60230 print,"[154][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":fori=1to7:print,"[153]                   ":next
  596. 60235 print,"[145][145][145][145][145][145][145][145][145][154][206][145][206][145][206][205][205][157][145][145][145][213][201][157][157][206][145][206][145][206][145][145][145][213][201][213][201][157][157][206][145][206][205][157][206][145][206][145][206][205][205][206][205][206]
  597. 60240 [153],,"cmdcmdcmdononcontstep(NULL)cmdcmdpoke(NULL)right$cmdcmdmid$(NULL)cmdcmd  wait   cont(NULL)cmdcmdcmdcmdcmdcmdpoke  print#sgnrndrndrndcmdcmdcmdcmdcmdcmdpoke  print#sgncoscoscos
  598. 60245 print,,"[145][157][157][157][157][157][157][153][169][223][151][157][157][151][172] [151][146][161][161][152][180]   [145][153][146][169][223][157][157][151][172] ",,,"[146][153][169][223]","[169][223]"
  599. 60250 print,"[152][172] [146][153][169] [223][169] [223][151] [187][146][153][169] [223]",,,"[151][188][172] [152] [172]  [187] "
  600. 60255 print,"[153] [164][175][185][162][146][184][183][163][183][162][185][164]       [146]
  601. 60260 [153]," toandposnewfreusrtab(frewaitnewandforstepwaitstepprintusrfrenewposand wait
  602. 60265 print,"            [163][184][146][162][185][175][164]"
  603. 60266 print,,"[145][145][145][145][145][145][145][145][145][145][145][154][206][206][157][157][157][157][206][145][145][145]":goto63000
  604. 60270 rem weinkeller
  605. 60275 print," [152][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  606. 60280 [129]i[178]1[164]2:[153],"then    >=>=>=>=>=>=>waitfn":[153],"+    =>=>=>=>=>=>=waitfn":[130]
  607. 60285 [153],"then   verifystepprint#>=>=>forleft$peekchr$print#>forleft$peekchr$print#>waitfn":[153],"+  verifystep(NULL)print#=>=>=forpeekpeekpeekprint#>forpeekpeekpeekprint#=waitfn"
  608. 60290 [153],"then verifystep(NULL)(NULL)waittotototo forleft$peekchr$left$peekchr$waitprint# fn":[153],"then verify(NULL)(NULL)waitverifystep(NULL)andand(NULL)         print#fn
  609. 60295 print,"[167] [149][206][146][149][169][154][169]  [146][169]         [152] [165]
  610. 60300 [153],"then(NULL)verifystepcontstep  waitstep          print# fn":[153],"then verifytab(tab(tab(tab(     forleft$peekchr$wait    print#fn
  611. 60305 print,"[167]      [129][200][194][199][194][194][194][146][152]    [165]":print," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":goto63000
  612. 60310 rem dunkler pfad
  613. 60315 print:fori=1to3:print,"              ":next
  614. 60320 print,"[188][149][161][184][188][149][161] [184][149][161][188]  [172][187] "
  615. 60325 fori=1to3:print,"[149] [161]  [161]  [161]  [161]  [161]":next
  616. 60330 print,"[129] [164][175][185][162][175] [175][185][175][164] [164][175]"
  617. 60335 print,"[164][164][175][185][162][175][164][175][185][175][164][164][164][175]
  618. 60340 [153],"frefrefrefrefrefrefrefrefrefrefrefrefrefre":[137]63000
  619. 60345 [143] beorns haus
  620. 60350 [153],"cont                wait
  621. 60355 print,"   [160]      [206][205]    [146]
  622. 60360 [153]," (NULL)(NULL)  (NULL)(NULL)waitstep(NULL)(NULL)  (NULL)  (NULL)wait
  623. 60365 print,"[206]  [205][206] [146][169]  [129] [154]   [205][206] [146]
  624. 60370 [153],"   (NULL) waitstep   for contwait(NULL)  (NULL)  wait
  625. 60375 print,"  [206] [146][169]      [223]    [146]
  626. 60380 [153],"     verify>=>=>=cont     wait
  627. 60385 print,"     [149][178][177][177] [149][177][154]     [146]
  628. 60390 [153],"=====verify>=waitforcosverify=>=cont=====wait
  629. 60395 print,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]
  630. 60400 [153],"                wait":[137]63000
  631. 60405 [143] wasserfall
  632. 60410 [153]," verifytototototototototototototototo
  633. 60415 print,"[167] [200] [200] [217][167][167][154][185][149][165][199][194] [194] [180]
  634. 60420 [153],"then (NULL) peek peek sgncont waitverify sgnleft$ peek sgn
  635. 60425 print,"[167] [200] [194] [165][170][154][167] [146][149][165][212][170] [200] [180]
  636. 60430 [153],"then left$ chr$ fnleft$cont+ waitsgnverifychr$+ + sgn
  637. 60435 print,"[167] [194] [199] [165][194][154][182] [146][181][149][194] [180] [180][180]
  638. 60440 [153],"then+verifypeek+verifysgn+ left$contget waitgetverify(NULL) chr$ fnsgn
  639. 60445 print,"[167][181][146][161][161][182][146][149][217] [170][154][181] [182][146][149][200] [199] [180][180]
  640. 60450 [153],"thensgnabssgn+waitverifyleft$ left$cont   waitverify+ peek+ sgn
  641. 60455 print,"[167] [167]  [146][149][194][185][163][163][163][163][163][146][185][149][194][170] [180]
  642. 60460 [153],"thenabs abspos         waitposverifysgnsgn
  643. 60465 print," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":goto63000
  644. 60470 rem dal
  645. 60475 print,"[149] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  646. 60480 [153],"then .      .    verify   fn
  647. 60485 print,"[167]     .     . .[149]  [165]
  648. 60490 [153],"then poke      (NULL)(NULL)verify       fn
  649. 60495 print,"[167][151]  [206][205]  [206]  [205][206][205][149]  [160] [165]
  650. 60500 [153],"thenpoke (NULL)  (NULL)(NULL)   (NULL)  (NULL)  (NULL)verifyfn
  651. 60505 print,"[167][151][206]   [206][158] [172][151] [206]    [205][206][149] [165]
  652. 60510 [153],"thensys   * fre wait getget* poke (NULL)verify  fn
  653. 60515 print,"[167][158]    [146][161][161][161]  [146][161][161][161] [149]   [165]
  654. 60520 [153],"thensys  cos    waitpos    waitnewcloseverify  fn
  655. 60525 print,"[167][129][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][149][165]
  656. 60530 [153],"thenfor                waitverifyfn":[137]63000
  657. 62000 [153]"load":[153],"sys     (NULL) (NULL)(NULL) (NULL)
  658. 62001 print,"  [205] [205]  [205][206]  [206] [206]
  659. 62002 [153]," (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL)
  660. 62003 print," [205] [205][205] [205][170] [206] [206][206] [206]
  661. 62004 [153],"(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)right$(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)
  662. 62005 print,"[205][205][205][205][223][164][164][164][164][164][164][146][169][206][206][206][206]
  663. 62006 [153]," (NULL)(NULL)(NULL)step      (NULL)waitsys(NULL)(NULL)(NULL)
  664. 62007 print," [205][205][169]        [223][146][158][206][206]
  665. 62008 [153],"  (NULL)then+ (NULL)  (NULL) sgnsgnwait(NULL)
  666. 62009 print,"  [205][167][170]  [207][208]  [180][180][146][206]
  667. 62010 [153],"   then+  sgn+  sgnsgnwait
  668. 62011 print,"[129]   [158][167][170]  [204][186]  [180][180][129]   [146]
  669. 62012 [153],"   systhen+ (NULL)  (NULL) sgnsgnfor   wait
  670. 62013 print,"   ekim-repus   [146]
  671. 62020 [153],"cmdcmdcmdcmdherzlichen glueckwunsch ,",,"cmdcmdcmdcmdsie haben es geschafft !
  672. 62025 x$="                                        *** j.r.r tolkien"
  673. 62030 x$=x$+" *** der kleine hobbit *** ein abenteuerspiel von "
  674. 62040 x$=x$+"michael nickles - bergstr.3 - 8763 klingenberg 2 ***"
  675. 62070 x$=x$+"                                         "
  676. 62100 fori=1tolen(x$)-39
  677. 62110 poke211,1:poke214,20:sys58732
  678. 62120 printmid$(x$,i,39)
  679. 62130 forii=1to150:nextii
  680. 62140 nexti:end
  681. 62500 poke53280,0:poke53281,0:print"[147]","  j.r.r. tolkien"
  682. 62501 print"":print,"[158]  der kleine
  683. 62502 [153]
  684. 62503 [153],"  sgn+ (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) sgn(NULL)usr
  685. 62504 print,"  [204][186] [180][170] [204][186] [204][186] [180][170]
  686. 62505 [153],"  sgn+ sgn+ sgn+ sgn+ sgn+
  687. 62506 print,"  [180][170] [205][206] [204][186] [204][186] [180][170]
  688. 62510 [153]" ein abenteuerspiel von michael nickles
  689. 62520 print,"  bitte warten !"
  690. 62600 return
  691. 63000 poke198,0:wait198,1:print"":return
  692. 63100 print," [129][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  693. 63102 [153],"then.     .    . for fn
  694. 63103 print,"[167]   .     .   .[129][165]
  695. 63104 [153],"then              fn
  696. 63105 print,"[167]      [169][223][146][129]      [165]
  697. 63106 [153],"then     step  (NULL)waitfor     fn
  698. 63107 print,"[167]    [151][169]    [223][146][129]    [165]
  699. 63108 [153],"then   pokestep      (NULL)waitfor   fn
  700. 63109 print,"[167]  [151][169]        [223][146][129]  [165]
  701. 63110 [153],"thentab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(waitfn
  702. 63111 print,"[167]              [146][165]":goto63000
  703.